home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Utilities / Z100 / Install < prev    next >
Encoding:
Text File  |  1998-07-17  |  10.7 KB  |  509 lines
  1. ; $VER: Z100-Install 1.5 (17.7.1998)
  2. ; (W)1996-1998 Thomas Omilian, Dortmund
  3. ; (C)1996-1998 Mega/Soft, Dortmund
  4. ; All rights reserved
  5.  
  6.     (set #version "1.5")
  7.     (set #copyright (cat
  8.             "(W)1996-1998 Thomas Omilian, Dortmund\n"
  9.             "(C)1996-1998 Mega/Soft, Dortmund\n"
  10.     ))
  11.  
  12. ; German installer text strings
  13. ; translator: Thomas Omilian
  14. ; -----------------------------
  15.  
  16. (if (= @language "deutsch")
  17. (
  18.     (set #welcome (cat 
  19.          "Willkommen zur Installation des Z100-Paketes!\n"
  20.          "Bitte wählen Sie den Installationsmodus aus."
  21.     ))
  22.  
  23.         (set #z100_introduction (cat "\n"
  24.  
  25.             "Z100 V"
  26.             #version
  27.             "\n"
  28.             "---------------------------\n"
  29.             "Das besondere Programmpaket\n"
  30.             "für iomega-Zip-Laufwerke\n"
  31.             "und Amiga-Computer\n"
  32.             "\n"
  33.             #copyright
  34.             "Alle Rechte vorbehalten.\n"
  35.         ))
  36.  
  37.         (set #z100_badkick "\n Das Z100-Paket benötigt mind. OS2.04.\n")
  38.  
  39.     (set #z100_destdir-prompt (cat
  40.     "Bitte wählen Sie einen Ort an dem das Z100-Paket "
  41.     "installiert werden soll. Eine Schublade mit "
  42.     "dem Namen 'Z100' wird dort erzeugt."
  43.     ))
  44.     
  45.     (set #z100_instfail "\nDas Programmpaket konnte nicht vollständig installiert werden. Beheben Sie den Fehler und starten Sie die Installation erneut.")
  46.  
  47.     (set #OldInstaller "\nIhr Installer ist zu alt. Besorgen Sie sich eine neuere Version (V43.3) bei ihrem Händler.")
  48.  
  49.     (set #z100_destdir-help (cat
  50.     "Spezifizieren Sie den Pfad, wo der Installer "
  51.     "das Programmpaket installieren soll. "
  52.     "Ein Verzeichnis 'Z100' wird erstellt.\n\n"
  53.     "Sollten Sie eine ältere Z100-Version bereits "
  54.     "installiert haben, wird das Programmpaket auf den "
  55.     "neuesten Stand gebracht. "
  56.     ))
  57.  
  58.     (set #z100_deviceprompt "Bitte geben Sie den Namen ihres Gerätetreibers ein.")
  59.     
  60.     (set #z100_devicehelp (cat
  61.     "Geben Sie den Namen des SCSI-Gerätetreibers ein, "
  62.     "der Ihr ZIP-Laufwerk steuert."
  63.     ))
  64.  
  65.     (set #z100_unitprompt "Bitte geben Sie die SCSI-ID ihres ZIP-Laufwerkes ein.")
  66.     
  67.     (set #z100_unithelp (cat
  68.     "Am SCSI-Bus hat jedes Gerät eine Nummer zwischen 0 und 7. "
  69.     "Diese wird normalerweise am Gerät selbst eingestellt. "
  70.     "Sollten Sie ein externes ZIP-Laufwerk besitzen, "
  71.     "können Sie diese Nummer hinten auf dem Laufwerk ablesen. "
  72.     "Bei der externen Version läßt sich die Nummer nur "
  73.     "zwischen 5 und 6 wählen."
  74.     ))
  75.  
  76.     (set #z100_exit (cat
  77.     "\n"
  78.     "Das Programmpaket wurde erfolgreich nach %s installiert.\n\n"
  79.     "Viel Spaß mit Z100"
  80.     ))
  81.  
  82.     (set #z100_nozip (cat
  83.     "\n"
  84.     "Das Zip-Laufwerk konnte nicht automatisch erkannt werden. "
  85.     "Wählen Sie einen anderen Installations-Modus aus um die "
  86.     "Laufwerksparameter manuell einzugeben."
  87.     ))
  88.  
  89.     (set #z100_watch-prompt (cat
  90.     "\n"
  91.     "Soll SafeZ100 automatisch gestartet werden, wenn ein "
  92.     "Medium eingelegt wird, welches mit einem Passwort "
  93.     "geschützt ist ?"
  94.     ))
  95.  
  96.     (set #z100_watch-help (cat
  97.     "\n"
  98.     "Wählen Sie diese Option an, um WatchZ100 in die "
  99.     "WBStartUp-Schublade zu installieren. WatchZ100 "
  100.     "läuft unsichtbar im Hintergrund und reagiert auf "
  101.     "Passwort-geschützte Medien mit dem Start von SafeZ100."
  102.     ))
  103.  
  104. )
  105. )
  106.  
  107. ; English installer text strings
  108. ; translator: Thomas Omilian
  109. ; ------------------------------
  110.  
  111. (if (= @language "english")
  112. (
  113.     (set #welcome (cat
  114.          "Welcome to the installation of the Z100-package!\n"
  115.          "Please select an installationmode."
  116.     ))
  117.  
  118.         (set #z100_introduction (cat "\n"
  119.  
  120.             "Z100 V"
  121.             #version
  122.             "\n"
  123.             "---------------------------\n"
  124.             "The special software-package\n"
  125.             "for iomega-Zip-drives\n"
  126.             "and Amiga-Computer\n"
  127.             "\n"
  128.             #copyright
  129.             "All rights reserved.\n"
  130.         ))
  131.  
  132.         (set #z100_badkick "\n The Z100-package requires at least OS2.04.\n")
  133.  
  134.     (set #z100_destdir-prompt (cat
  135.     "Please select the location, where the Z100-package "
  136.     "shall be installed. A directory called 'Z100' "
  137.     "will there be created."
  138.     ))
  139.     
  140.     (set #z100_instfail "\nThe Installation wasn't complete. Please remove the problem and try again.")
  141.  
  142.     (set #OldInstaller "\nYour Installer is obsolete. Get the latest version (V43.3) at your local dealer or from aminet.")
  143.  
  144.     (set #z100_destdir-help (cat
  145.     "Specify the path where the installer "
  146.     "shall copy the required files. "
  147.     "A directory called 'Z100' will be created.\n\n"
  148.     "If you have already installed a former version, "
  149.     "your Z100-package will be updated."
  150.     ))
  151.  
  152.     (set #z100_deviceprompt "Please specify the name of your SCSI-device.")
  153.     
  154.     (set #z100_devicehelp (cat
  155.     "Enter the name of the SCSI-device, "
  156.     "which controls your ZIP-drive."
  157.     ))
  158.  
  159.     (set #z100_unitprompt "Please specify the SCSI-ID of your ZIP-drive.")
  160.     
  161.     (set #z100_unithelp (cat
  162.     "Every SCSI-device belongs to a unit-number between 0 and 7. "
  163.     "This number is mostly set by DIP-switches at the device itself. "
  164.     "If you own the external version of the ZIP-drive, "
  165.     "you can get the ID by looking at the back of your drive. "
  166.     "The external version only allows to select the ID between 5 and 6."
  167.     ))
  168.  
  169.     (set #z100_exit (cat
  170.     "\n"
  171.     "The Z100-package had successfully been installed to %s.\n\n"
  172.     "Have fun."
  173.     ))
  174.  
  175.     (set #z100_nozip (cat
  176.     "\n"
  177.     "The ZIP-drive couldn't be recognized automatically. "
  178.     "Please choose another installationmode to enter "
  179.     "the drive-parameters manually."
  180.     ))
  181.  
  182.     (set #z100_watch-prompt (cat
  183.     "\n"
  184.     "Do you want to run SafeZ100 everytime a password "
  185.     "protected disk is inserted ?" 
  186.     ))
  187.  
  188.     (set #z100_watch-help (cat
  189.     "\n"
  190.     "Select this option to install WatchZ100 into your "
  191.     "WBStartUp-folder. WatchZ100 runs in the background "
  192.     "and if a password-protected disk is inserted, a "
  193.     "user-configurable program will be lauched. In this "
  194.     "case, SafeZ100 will prompt you for a password."
  195.     ))
  196.  
  197. )
  198. )
  199.  
  200. ; custom installer text strings
  201. ; translator: Please notify the author
  202. ; ------------------------------------
  203.  
  204. (if (= @language "language")
  205. (exit (quiet))
  206. )
  207.  
  208. ; trap handling
  209. ; -------------
  210.  
  211. (onerror
  212.     (
  213.     (message #z100_instfail)
  214.     (exit (quiet))
  215.     )
  216. )
  217.  
  218. ; check on Kick 2.04
  219. ; ------------------
  220.  
  221. (if (< (/ (getversion) 65536) 37)
  222.     (
  223.         (message #z100_badkick)
  224.         (exit (quiet))
  225.     )
  226. )
  227.  
  228. ; check on Installer >42
  229. ; ----------------------
  230.  
  231. (if (< (/ @installer-version 65536) 42)
  232.     (
  233.         (message #OldInstaller)
  234.         (exit (quiet))
  235.     )
  236. )
  237.  
  238. (message #z100_introduction)
  239.  
  240. (welcome #welcome)
  241.  
  242. (complete 0)
  243.  
  244. (if (= (run "DATA/GuessZ100 CHECK") 0)
  245.     (
  246.     (run "DATA/GuessZ100 SET")
  247.     (set #z100_env (getenv "Z100DEVICE"))
  248.     (set #z100_devicedefault (substr #z100_env 1 (- (strlen #z100_env) 2)))
  249.     (set #z100_unitdefault (substr #z100_env 0 1))
  250.     (set #z100_found 1)
  251.     )
  252.     (
  253.     (set #z100_devicedefault "scsi.device")
  254.     (set #z100_unitdefault 5)
  255.     (set #z100_found 0)
  256.     )
  257. )
  258.  
  259. (set #z100_device #z100_devicedefault)
  260. (set #z100_unit #z100_unitdefault)
  261.  
  262.  
  263. ; if drive wasn't found and userlevel is 0 we exit
  264.  
  265. (if (AND (= @user-level 0) (= #z100_found 0))
  266.  (
  267.  (exit #z100_nozip (quiet))
  268.  )
  269. )
  270.  
  271. ; if drive wasn't found or userlevel is 2 we ask user
  272.  
  273. (if (OR (= @user-level 2) (= #z100_found 0))
  274.   (
  275.     (set #z100_device
  276.       (askstring
  277.        (PROMPT #z100_deviceprompt)
  278.        (DEFAULT #z100_devicedefault)
  279.        (HELP #z100_devicehelp)
  280.       )
  281.     )
  282.     (set #z100_unitnum
  283.       (asknumber
  284.        (PROMPT #z100_unitprompt)
  285.        (DEFAULT #z100_unitdefault)
  286.        (HELP #z100_unithelp)
  287.        (RANGE 0 7)
  288.       )
  289.     )
  290.     (set #z100_unit (cat #z100_unitnum))
  291.   )
  292. )
  293.  
  294. (complete 10)
  295.  
  296. (set #z100_path (askdir 
  297.                 (prompt #z100_destdir-prompt) 
  298.                 (help #z100_destdir-help)
  299.                 (default "SYS:TOOLS")
  300.                 )
  301. )                
  302.  
  303. (set #z100_dir (tackon #z100_path "Z100"))
  304. (set @default-dest #z100_dir)
  305.  
  306. (if (<> (exists #z100_dir) 2)
  307.   (
  308.   (makedir #z100_dir)
  309.   (copyfiles
  310.         (source "DATA/Z100.info")
  311.         (dest #z100_path)
  312.         (files)
  313.   )
  314.   )
  315. )
  316.  
  317. (complete 15)
  318.  
  319. (copyfiles
  320.     (source "FrameZ100")
  321.     (dest #z100_dir)
  322.     (files)
  323.     (infos)
  324.     (noposition)
  325. )
  326.  
  327. (tooltype
  328.     (dest (tackon #z100_dir "FrameZ100"))
  329.     (settooltype "UNIT" #z100_unit)
  330.     (settooltype "DEVICE" #z100_device)
  331. )
  332.  
  333. (complete 30)
  334.  
  335. (copyfiles
  336.     (source "SafeZ100")
  337.     (dest #z100_dir)
  338.     (files)
  339.     (infos)
  340.     (noposition)
  341. )
  342.  
  343. (tooltype
  344.     (dest (tackon #z100_dir "SafeZ100"))
  345.     (settooltype "UNIT" #z100_unit)
  346.     (settooltype "DEVICE" #z100_device)
  347. )
  348.  
  349. (complete 40)
  350.  
  351. (if (<> (exists (tackon #z100_dir "Icons")) 2)
  352.   (
  353.   (makedir (tackon #z100_dir "Icons"))
  354.   (copyfiles
  355.     (source "Icons.info")
  356.     (dest #z100_dir)
  357.     (files)
  358.   )
  359.   )
  360. )
  361.  
  362. (copyfiles
  363.     (source "ICONS")
  364.     (dest (tackon #z100_dir "Icons"))
  365.     (all)
  366. )
  367.  
  368. (complete 50)
  369.  
  370. (if (<> (exists (tackon #z100_dir "docs")) 2)
  371.   (
  372.   (makedir (tackon #z100_dir "Docs"))
  373.   (copyfiles
  374.     (source "docs.info")
  375.     (dest #z100_dir)
  376.     (files)
  377.   )
  378.   )
  379. )
  380.  
  381. (copyfiles
  382.     (source "DOCS")
  383.     (dest (tackon #z100_dir "docs"))
  384.     (all)
  385. )
  386.  
  387. (complete 70)
  388.  
  389. (if (<> (exists (tackon #z100_dir "DosDrivers")) 2)
  390.   (
  391.   (makedir (tackon #z100_dir "DosDrivers"))
  392.   (copyfiles
  393.     (source "DosDrivers.info")
  394.     (dest #z100_dir)
  395.     (files)
  396.   )
  397.   )
  398. )
  399.  
  400. (copyfiles
  401.     (source "DosDrivers")
  402.     (dest (tackon #z100_dir "DosDrivers"))
  403.     (all)
  404. )
  405.  
  406. (complete 75)
  407.  
  408. (tooltype
  409.     (dest (tackon #z100_dir "DosDrivers/ZIP"))
  410.     (settooltype "UNIT" #z100_unit)
  411.     (settooltype "DEVICE" #z100_device)
  412. )
  413. (tooltype
  414.     (dest (tackon #z100_dir "DosDrivers/ZPC"))
  415.     (settooltype "UNIT" #z100_unit)
  416.     (settooltype "DEVICE" #z100_device)
  417. )
  418. (tooltype
  419.     (dest (tackon #z100_dir "DosDrivers/ZMC"))
  420.     (settooltype "UNIT" #z100_unit)
  421.     (settooltype "DEVICE" #z100_device)
  422. )
  423.  
  424. (complete 80)
  425.  
  426. (copyfiles
  427.     (source "WatchZ100")
  428.     (dest #z100_dir)
  429.     (files)
  430.     (infos)
  431.     (noposition)
  432. )
  433.  
  434. (tooltype
  435.     (dest (tackon #z100_dir "WatchZ100"))
  436.     (settooltype "UNIT" #z100_unit)
  437.     (settooltype "DEVICE" #z100_device)
  438.     (settooltype "RUNCOMMAND" (tackon #z100_dir "SafeZ100"))
  439.     (settooltype "CHECKPORT" "YES")
  440.     (settooltype "DONOTWAIT" "YES")
  441. )
  442.  
  443. (if
  444.  (askbool
  445.         (prompt #z100_watch-prompt)
  446.         (help #z100_watch-help)
  447.         (default 1)
  448.  )
  449.  (
  450.   (copyfiles
  451.    (source "DATA/WatchZ100.info")
  452.    (dest "SYS:WBStartup")
  453.    (newname "WatchZ100.info")
  454.    (noposition)
  455.   )
  456.   (tooltype
  457.    (dest (tackon "SYS:WBStartup" "WatchZ100"))
  458.    (settooltype "UNIT" #z100_unit)
  459.    (settooltype "DEVICE" #z100_device)
  460.    (settooltype "RUNCOMMAND" (tackon #z100_dir "SafeZ100"))
  461.    (settooltype "CHECKPORT" "YES")
  462.    (settooltype "DONOTWAIT" "YES")
  463.    (setdefaulttool (tackon #z100_dir "WatchZ100"))
  464.   )
  465.  )
  466. )
  467.  
  468. (complete 90)
  469.  
  470. (if (<> (exists (tackon #z100_dir "Catalogs")) 2)
  471.   (
  472.   (makedir (tackon #z100_dir "Catalogs"))
  473.   (copyfiles
  474.     (source "Catalogs.info")
  475.     (dest #z100_dir)
  476.     (files)
  477.   )
  478.   )
  479. )
  480.  
  481. (copyfiles
  482.     (source "Catalogs")
  483.     (dest (tackon #z100_dir "Catalogs"))
  484.     (all)
  485. )
  486.  
  487. (complete 90)
  488.  
  489. (if (<> (exists (tackon #z100_dir "Bonus")) 2)
  490.   (
  491.   (makedir (tackon #z100_dir "Bonus"))
  492.   (copyfiles
  493.     (source "Bonus.info")
  494.     (dest #z100_dir)
  495.     (files)
  496.   )
  497.   )
  498. )
  499.  
  500. (copyfiles
  501.     (source "Bonus")
  502.     (dest (tackon #z100_dir "Bonus"))
  503.     (all)
  504. )
  505.  
  506. (complete 100)
  507.  
  508. (exit (#z100_exit #z100_dir) (quiet))
  509.